function Selch=recombin1(Selch,lada1,lada2,FitV)
ave_F=mean(FitV);
max_F=max(FitV);
[r c]=size(Selch);
Xops=floor(r/2);
cross_p=ones(Xops,1)*lada2;
for i=1:2:r-1
    if max(FitV(i),FitV(i+1))>=ave_F
        cross_p((i+1)/2)=lada1*(max_F-max(FitV(i),FitV(i+1)))/(max_F-ave_F);
    end
end
Selch=xovmp(Selch,cross_p,0,0);
end